home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / term / vltj5867.lha / VLT / rexx / LastMsgTTX.vlt < prev    next >
Text File  |  1994-03-27  |  1KB  |  40 lines
  1. /** LastMsg.vlt
  2. *
  3. *   Test of VLT review buffer.
  4. *   When you're on BIX after having read a message, this script
  5. *   will bring up the same message into Turbotext.
  6. *
  7. **/
  8. /*
  9. *   Add libraries if necessary
  10. */
  11. if show("l", "rexxarplib.library") = 0 then do
  12.    check = addlib('rexxsupport.library', 0, -30, 0)
  13.    check = addlib('rexxarplib.library',  0, -30, 0)
  14. end
  15. /*
  16. *   The following sequence determines both VLT's screen and port name
  17. */
  18. vltport = address()
  19. cols = ScreenCols(vltport)
  20. if cols == -1 then vltscreen = ""
  21. else               vltscreen = vltport
  22.  
  23. 'rev "D"'                /* Deselect all              */
  24. 'rev "R ======"'            /* Search reverse for "======"      */
  25. 'rev "S B"'                /* Select all to bottom          */
  26. 'rev "R R:"'                /* Search reverse for "R:"      */
  27. 'rev "D S"'                /* Deselect this "search line"      */
  28. 'rev "R no more unread"'        /* Search for "no more unread"      */
  29. 'rev "D S"'                /* Deselect that one too      */
  30. 'rev "R Hit <Return>"'            /* Search for "Hit <return>"      */
  31. 'rev "D S"'                /* Deselect              */
  32. 'rev "A ram:revtemp.txt"'        /* Save selected lines temporarily*/
  33.  
  34. if vltscreen = "" then do
  35.    address COMMAND 'ttx ram:revtemp.txt' /* Edit it                       */
  36. end
  37. else do
  38.    address COMMAND 'ttx ram:revtemp.txt screen 'vltscreen
  39. end
  40.